COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) 411P2.SAI[KA,JLG] and 2) PASS2.SAI[KA,JLG]	4-18-86 21:24	pages 4,4
C00005 00003	  1) 411P2.SAI[KA,JLG] and 2) PASS2.SAI[KA,JLG]	4-18-86 21:24	pages 5,5
C00006 ENDMK
C⊗;
  1) 411P2.SAI[KA,JLG] and 2) PASS2.SAI[KA,JLG]	4-18-86 21:24	pages 4,4

**** File 1) 411P2.SAI[KA,JLG]/4P/3L
1)	THAFE INTEGER ARRAY CW[-1:ONE] ;
1)	REQUIRE "DATUM" SOURCE!FILE ;
**** File 2) PASS2.SAI[KA,JLG]/4P/3L
2)	THAFE INTEGER ARRAY CW[0:ONE] ;
2)	REQUIRE "DATUM" SOURCE!FILE ;
***************


**** File 1) 411P2.SAI[KA,JLG]/4P/130L
1)	          BRC ← FNTFIL[J] ← CREATE(-1,255) ; MAKEBE(BRC, CW) ;
1)	          READFONT(J, FNTNAME[J], NULL);
**** File 2) PASS2.SAI[KA,JLG]/4P/130L
2)	          BRC ← FNTFIL[J] ← CREATE(0,127) ; MAKEBE(BRC, CW) ;
2)	          READFONT(J, FNTNAME[J], NULL);
***************


**** File 1) 411P2.SAI[KA,JLG]/5P/43L
1)		INTEGER SRC,len,spcnt, I, J, XPOS;
1)	        STRING TEMP;
1)	              
**** File 2) PASS2.SAI[KA,JLG]/5P/43L
2)		INTEGER SRC,len,spcnt ;
2)	              
***************


**** File 1) 411P2.SAI[KA,JLG]/5P/50L
1)	     IF CW[-1] = -1 THEN
1)	        BEGIN  "TFM FILE"
1)	        I ← 1;
1)	        TEMP ← S;
1)	        XPOS ← CURRENTX;
1)		WHILE LEN > 0 DO
1)	          BEGIN
1)	          IF S[I FOR 1] ≠ SP AND (I ≤ LENGTH(S)) THEN
1)	            BEGIN
1)	            END;
1)		  IF S[I FOR 1] = SP AND (I ≤ LENGTH(S)) THEN   COMMENT SKIP BUT COUNT SPACES;
1)	   	    BEGIN
1)	            J ← I;
1)		    WHILE S[J FOR 1] = SP AND (J ≤ LENGTH(S)) DO
1)	              J ← J +  1;
1)	            XPOS ← XPOS + ((CW[32]) * (J-I));
1)	            LEN ← LEN - (J-I);
1)		    I ← J;
1)	            END;
  1) 411P2.SAI[KA,JLG] and 2) PASS2.SAI[KA,JLG]	4-18-86 21:24	pages 5,5

1)	          END;
1)	        END  "TFM FILE"
1)	     ELSE
1)	        BEGIN COMMENT CW[-1] ≠ -1;
1)		spcnt←0;
**** File 2) PASS2.SAI[KA,JLG]/5P/48L
2)		spcnt←0;
***************


**** File 1) 411P2.SAI[KA,JLG]/5P/95L
1)	        END;
1)		DLBPRESET ← -1 ; TES 11/17/74;
**** File 2) PASS2.SAI[KA,JLG]/5P/68L
2)		DLBPRESET ← -1 ; TES 11/17/74;
***************